(define (print x) (display x) (newline))
(define (write-line x) (write x) (newline))

(define arithmetic-shift ash)
